home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / xbtx.lha / Source / BTXDecode.cpp < prev    next >
C/C++ Source or Header  |  1995-12-03  |  16KB  |  670 lines
  1. /*
  2. **    $Id: BTXDecode.cpp 1.1 1995/12/03 12:16:23 olsen Exp olsen $
  3. **
  4. **    :ts=4
  5. */
  6.  
  7. /*
  8.  * Amiga changes copyright © 1995 by Olaf Barthel, All Rights Reserved
  9.  *
  10.  * Copyright (c) 1992, 1993 Arno Augustin, Frank Hoering, University of
  11.  * Erlangen-Nuremberg, Germany.
  12.  * All rights reserved.
  13.  *
  14.  * Redistribution and use in source and binary forms, with or without
  15.  * modification, are permitted provided that the following conditions
  16.  * are met:
  17.  * 1. Redistributions of source code must retain the above copyright
  18.  *    notice, this list of conditions and the following disclaimer.
  19.  * 2. Redistributions in binary form must reproduce the above copyright
  20.  *    notice, this list of conditions and the following disclaimer in the
  21.  *    documentation and/or other materials provided with the distribution.
  22.  * 3. All advertising materials mentioning features or use of this software
  23.  *    must display the following acknowledgement:
  24.  *      This product includes software developed by the University of
  25.  *      Erlangen-Nuremberg, Germany.
  26.  * 4. Neither the name of the University nor the names of its contributors
  27.  *    may be used to endorse or promote products derived from this software
  28.  *    without specific prior written permission.
  29.  *
  30.  * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
  31.  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  32.  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO
  33.  * EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  34.  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  35.  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  36.  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  37.  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  38.  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  39.  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  40.  *
  41.  * This software has not been validated by the ``Bundesamt fuer Zulassungen in
  42.  * der Telekommunikation'' of the ``Deutsche Bundepost Telekom'' and thus
  43.  * must not be used for accessing the BTX-Network of the Telekom in Germany.
  44.  *
  45.  * Diese Software hat keine Zulassung durch das Bundesamt fuer Zulassungen in
  46.  * der Telekommunikation der Deutschen Bundespost Telekom und darf daher nicht
  47.  * am Netz der Deutschen Bundespost Telekom in Deutschland betrieben werden.
  48.  */
  49.  
  50. /****************************************************************************/
  51.  
  52. #include <string.h>
  53. #include <stdlib.h>
  54.  
  55. /****************************************************************************/
  56.  
  57. #ifndef _BTXSERVICE_HPP
  58. #include "BTXService.hpp"
  59. #endif
  60.  
  61. /****************************************************************************/
  62.  
  63. #define FCS_32(crc,c) (crctab[((crc) ^ (c)) & 0xff] ^ ((crc) >> 8))
  64.  
  65. /****************************************************************************/
  66.  
  67. /**************************************************************
  68.     lzhuf.c
  69.     written by Haruyasu Yoshizaki 11/20/1988
  70.     some minor changes 4/6/1989
  71.     comments translated by Haruhiko Okumura 4/7/1989
  72.  
  73.     modified for Btx-FIF by InfoTeSys GmhH      1991-11-04
  74.     : use malloc() instead of huge static areas
  75.     : files have to be opened outside of this module
  76.     : FCS-check inluded
  77.     :
  78.     : length field "long(Filesize)" has been removed from file
  79. **************************************************************/
  80.  
  81. /********** LZSS compression **********/
  82.  
  83. #define N                4096                    /* buffer size */
  84. #define F                60                        /* lookahead buffer size */
  85. #define THRESHOLD        2
  86. #define NIL             N                        /* leaf of tree */
  87. #define text_buf_len    (N + F - 1)
  88.  
  89. #define N_CHAR            (256 - THRESHOLD + F)    /* kinds of characters (character code = 0..N_CHAR-1) */
  90. #define T                (N_CHAR * 2 - 1)        /* size of table */
  91. #define R                (T - 1)                    /* position of root */
  92. #define MAX_FREQ        0x8000                    /* updates tree when the */
  93.                                                 /* root frequency comes to this value. */
  94. struct lzh_env
  95. {
  96.     UBYTE    InpBuf[2048];
  97.     WORD    InpPos;
  98.     WORD    InpMax;
  99.  
  100.     UBYTE    OutBuf[1024];
  101.     WORD    OutPos;
  102.     WORD    OutMax;
  103.  
  104.     UWORD    freq[T + 1];        /* frequency table */
  105.  
  106.     WORD    prnt[T + N_CHAR];    /* pointers to parent nodes, except for the */
  107.                                 /* elements [T..T + N_CHAR - 1] which are used to get */
  108.                                 /* the positions of leaves corresponding to the codes. */
  109.     WORD    son[T];                /* pointers to child nodes (son[], son[] + 1) */
  110.  
  111.     ULONG    crctab[256];
  112.  
  113.     UBYTE    *text_buf;
  114.     WORD    match_position;
  115.     WORD    match_length;
  116.     WORD    *lson;                 /*   [N + 1];    */
  117.     WORD    *rson;                 /*   [N + 257];    */
  118.     WORD    *dad;                /*   [N + 1];    */
  119.  
  120.     UWORD    getbuf;
  121.     WORD    getlen;
  122.  
  123.     FILE    *infile;
  124.     FILE    *outfile;
  125. };
  126.  
  127. STATIC WORD InpByt(struct lzh_env *LZHENV)
  128. {
  129.     if(LZHENV->InpPos >= LZHENV->InpMax)
  130.     {
  131.         if((LZHENV->InpMax = (WORD)fread(LZHENV->InpBuf,1,LZHENV->InpMax,LZHENV->infile)) < 1)
  132.             return(0);
  133.  
  134.         LZHENV->InpPos = 0;
  135.     }
  136.  
  137.     return(LZHENV->InpBuf[LZHENV->InpPos++]);
  138. }
  139.  
  140. STATIC WORD OutByt(struct lzh_env *LZHENV,WORD BY)
  141. {
  142.     LZHENV->OutBuf[LZHENV->OutPos++] = (UBYTE)BY;
  143.  
  144.     if(LZHENV->OutPos == LZHENV->OutMax)
  145.     {
  146.         if(fwrite(LZHENV->OutBuf,LZHENV->OutPos,1,LZHENV->outfile) < 1)
  147.             return(0);
  148.  
  149.         LZHENV->OutPos = 0;
  150.     }
  151.  
  152.     return(1);
  153. }
  154.  
  155. STATIC WORD GetBit(struct lzh_env *LZHENV)   /* get one bit */
  156. {
  157.     WORD i,j;
  158.  
  159.     j = LZHENV->getlen;
  160.  
  161.     while(j <= 8)
  162.     {
  163.         if((i = InpByt(LZHENV)) == EOF)
  164.             i = 0;
  165.  
  166.         LZHENV->getbuf |= (i << (8 - j));
  167.  
  168.         j += 8;
  169.     }
  170.  
  171.     i                = (WORD)LZHENV->getbuf;
  172.     LZHENV->getbuf <<= 1;
  173.     LZHENV->getlen   = --j;
  174.  
  175.     return((WORD)(i < 0));
  176. }
  177.  
  178. STATIC WORD GetByte(struct lzh_env *LZHENV)  /* get one byte */
  179. {
  180.     UWORD i;
  181.     WORD j;
  182.  
  183.     j = LZHENV->getlen;
  184.  
  185.     while(j <= 8)
  186.     {
  187.         if((i = InpByt(LZHENV)) == EOF)
  188.             i = 0;
  189.  
  190.         LZHENV->getbuf |= i << (8 - j);
  191.  
  192.         j += 8;
  193.     }
  194.  
  195.     i                = LZHENV->getbuf;
  196.     LZHENV->getbuf <<= 8;
  197.     LZHENV->getlen   = (WORD)(j - 8);
  198.  
  199.     return((WORD)((i >> 8) & 0xff));
  200. }
  201.  
  202. STATIC VOID StopHuff(struct lzh_env *LZHENV)
  203. {
  204.     if(LZHENV->lson)
  205.         free(LZHENV->lson);
  206.  
  207.     if(LZHENV->rson)
  208.         free(LZHENV->rson);
  209.  
  210.     if(LZHENV->dad)
  211.         free(LZHENV->dad);
  212.  
  213.     if(LZHENV->text_buf)
  214.         free(LZHENV->text_buf);
  215.  
  216.     free(LZHENV);
  217. }
  218.  
  219. STATIC VOID initCRC(ULONG *crctab)
  220. {
  221.     WORD i,j;
  222.     ULONG crc;
  223.  
  224.     for(i = 0 ; i < 256 ; i++)
  225.     {
  226.         crc = i;
  227.  
  228.         for(j = 0 ; j < 8 ; j++)
  229.         {
  230.             if(crc & 1)
  231.                 crc = (crc >> 1) ^ 0xEDB88320;
  232.             else
  233.                 crc >>= 1;
  234.         }
  235.  
  236.         crctab[i] = crc;
  237.     }
  238. }
  239.  
  240. /* initialization of tree */
  241. STATIC struct lzh_env *StartHuff(VOID)
  242. {
  243.     struct lzh_env *LZHENV;
  244.     WORD i,j;
  245.  
  246.     if(!(LZHENV = (struct lzh_env *)malloc(sizeof(struct lzh_env))))
  247.         return(NULL);
  248.  
  249.     memset(LZHENV,0,sizeof(struct lzh_env));
  250.  
  251.     LZHENV->lson        = (WORD *)malloc((N +   1) * sizeof(WORD));
  252.     LZHENV->rson        = (WORD *)malloc((N + 257) * sizeof(WORD));
  253.     LZHENV->dad            = (WORD *)malloc((N +   1) * sizeof(WORD));
  254.     LZHENV->text_buf    = (UBYTE *)malloc(text_buf_len);
  255.  
  256.     if(!LZHENV->lson || !LZHENV->rson || !LZHENV->dad || !LZHENV->text_buf)
  257.     {
  258.         StopHuff(LZHENV);
  259.         return(NULL);
  260.     }
  261.  
  262.     memset(LZHENV->lson,0,(N + 1) * sizeof(WORD));
  263.     memset(LZHENV->rson,0,(N + 257) * sizeof(WORD));
  264.     memset(LZHENV->dad,0,(N + 1) * sizeof(WORD));
  265.     memset(LZHENV->text_buf,' ',(N - F));
  266.  
  267.     LZHENV->InpMax = LZHENV->InpPos = (WORD)sizeof(LZHENV->InpBuf);
  268.     LZHENV->OutMax = (WORD)sizeof(LZHENV->OutBuf);
  269.  
  270.     initCRC(LZHENV->crctab);
  271.  
  272.     LZHENV->getbuf = LZHENV->getlen = 0;
  273.     LZHENV->match_position = LZHENV->match_length = 0;
  274.  
  275.     for(i = 0; i < N_CHAR; i++)
  276.     {
  277.         LZHENV->freq[i]        = 1;
  278.         LZHENV->son[i]        = (WORD)(i + T);
  279.         LZHENV->prnt[i + T]    = (WORD)i;
  280.     }
  281.  
  282.     i = 0;
  283.     j = N_CHAR;
  284.  
  285.     while(j <= R)
  286.     {
  287.         LZHENV->freq[j] = (UWORD)(LZHENV->freq[i] + LZHENV->freq[i + 1]);
  288.         LZHENV->son[j]    = i;
  289.         LZHENV->prnt[i] = LZHENV->prnt[i + 1] = j;
  290.  
  291.         i += 2;
  292.  
  293.         j++;
  294.     }
  295.  
  296.     LZHENV->freq[T] = 0xffff;
  297.     LZHENV->prnt[R] = 0;
  298.  
  299.     return(LZHENV);
  300. }
  301.  
  302. STATIC VOID reconst(struct lzh_env *LZHENV)    /* reconstruction of tree */
  303. {
  304.     UWORD f,l;
  305.     WORD i,k,j;
  306.  
  307.     /* collect leaf nodes in the first half of the table */
  308.     /* and replace the freq by (freq + 1) / 2. */
  309.     for(i = k = 0; i < T; ++i)
  310.     {
  311.         if(LZHENV->son[i] >= T)
  312.         {
  313.             LZHENV->freq[k] = (UWORD)((LZHENV->freq[i] + 1) / 2);
  314.             LZHENV->son[k]  = LZHENV->son[i];
  315.  
  316.             k++;
  317.         }
  318.     }
  319.  
  320.     /* begin constructing tree by connecting sons */
  321.     for(i = 0,j = N_CHAR; j < T; i += 2,j++)
  322.     {
  323.         k = (WORD)(i + 1);
  324.         f = LZHENV->freq[j] = (UWORD)(LZHENV->freq[i] + LZHENV->freq[k]);
  325.  
  326.         for(k = (WORD)(j - 1); f < LZHENV->freq[k]; k--);
  327.             k++;
  328.  
  329.         l = (UWORD)((j - k) * 2);
  330.  
  331.         memmove(&LZHENV->freq[k + 1],&LZHENV->freq[k],l);
  332.         LZHENV->freq[k] = f;
  333.  
  334.         memmove(&LZHENV->son[k + 1],&LZHENV->son[k],l);
  335.         LZHENV->son[k] = i;
  336.     }
  337.  
  338.     /* connect prnt */
  339.     for(i = 0; i < T; i++)
  340.     {
  341.         if((k = LZHENV->son[i]) >= T)
  342.             LZHENV->prnt[k] = i;
  343.         else
  344.             LZHENV->prnt[k] = LZHENV->prnt[k + 1] = i;
  345.     }
  346. }
  347.  
  348. /* increment frequency of given code by one,and update tree */
  349. STATIC VOID update(struct lzh_env *LZHENV,WORD c)
  350. {
  351.     WORD i,j,k,l;
  352.  
  353.     if(LZHENV->freq[R] == MAX_FREQ)
  354.         reconst(LZHENV);
  355.  
  356.     c = LZHENV->prnt[c + T];
  357.  
  358.     do
  359.     {
  360.         k = (WORD)(++LZHENV->freq[c]);
  361.  
  362.         /* if the order is disturbed,exchange nodes */
  363.         if(k > LZHENV->freq[l = (WORD)(c + 1)])
  364.         {
  365.             while(k > LZHENV->freq[++l]);
  366.                 l--;
  367.  
  368.             LZHENV->freq[c] = LZHENV->freq[l];
  369.             LZHENV->freq[l] = k;
  370.  
  371.             i = LZHENV->son[c];
  372.  
  373.             LZHENV->prnt[i] = l;
  374.  
  375.             if(i < T)
  376.                 LZHENV->prnt[i + 1] = l;
  377.  
  378.             j = LZHENV->son[l];
  379.             LZHENV->son[l] = i;
  380.  
  381.             LZHENV->prnt[j] = c;
  382.  
  383.             if(j < T)
  384.                 LZHENV->prnt[j + 1] = c;
  385.  
  386.             LZHENV->son[c] = j;
  387.  
  388.             c = l;
  389.         }
  390.     }
  391.     while((c = LZHENV->prnt[c]) != 0);   /* repeat up to root */
  392. }
  393.  
  394. STATIC WORD DecodeChar(struct lzh_env *LZHENV)
  395. {
  396.     UWORD c;
  397.  
  398.     c = LZHENV->son[R];
  399.  
  400.     /* travel from root to leaf,*/
  401.     /* choosing the smaller child node (son[]) if the read bit is 0,*/
  402.     /* the bigger (son[]+1) if 1 */
  403.     while(c < T)
  404.     {
  405.         c += GetBit(LZHENV);
  406.         c = LZHENV->son[c];
  407.     }
  408.  
  409.     c -= T;
  410.     update(LZHENV,c);
  411.  
  412.     return((WORD)c);
  413. }
  414.  
  415. STATIC WORD DecodePosition(struct lzh_env *LZHENV)
  416. {
  417.     /* table for decoding the upper 6 bits of position */
  418.     STATIC UBYTE d_code[256] =
  419.     {
  420.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  421.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  422.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  423.         0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  424.         0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  425.         0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
  426.         0x02,0x02,0x02,0x02,0x02,0x02,0x02,0x02,
  427.         0x02,0x02,0x02,0x02,0x02,0x02,0x02,0x02,
  428.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  429.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  430.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  431.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  432.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  433.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  434.         0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
  435.         0x09,0x09,0x09,0x09,0x09,0x09,0x09,0x09,
  436.         0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,0x0A,
  437.         0x0B,0x0B,0x0B,0x0B,0x0B,0x0B,0x0B,0x0B,
  438.         0x0C,0x0C,0x0C,0x0C,0x0D,0x0D,0x0D,0x0D,
  439.         0x0E,0x0E,0x0E,0x0E,0x0F,0x0F,0x0F,0x0F,
  440.         0x10,0x10,0x10,0x10,0x11,0x11,0x11,0x11,
  441.         0x12,0x12,0x12,0x12,0x13,0x13,0x13,0x13,
  442.         0x14,0x14,0x14,0x14,0x15,0x15,0x15,0x15,
  443.         0x16,0x16,0x16,0x16,0x17,0x17,0x17,0x17,
  444.         0x18,0x18,0x19,0x19,0x1A,0x1A,0x1B,0x1B,
  445.         0x1C,0x1C,0x1D,0x1D,0x1E,0x1E,0x1F,0x1F,
  446.         0x20,0x20,0x21,0x21,0x22,0x22,0x23,0x23,
  447.         0x24,0x24,0x25,0x25,0x26,0x26,0x27,0x27,
  448.         0x28,0x28,0x29,0x29,0x2A,0x2A,0x2B,0x2B,
  449.         0x2C,0x2C,0x2D,0x2D,0x2E,0x2E,0x2F,0x2F,
  450.         0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,
  451.         0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F
  452.     };
  453.  
  454.     STATIC UBYTE d_len[256] =
  455.     {
  456.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  457.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  458.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  459.         0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
  460.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  461.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  462.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  463.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  464.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  465.         0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x04,
  466.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  467.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  468.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  469.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  470.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  471.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  472.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  473.         0x05,0x05,0x05,0x05,0x05,0x05,0x05,0x05,
  474.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  475.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  476.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  477.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  478.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  479.         0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
  480.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  481.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  482.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  483.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  484.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  485.         0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
  486.         0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
  487.         0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08
  488.     };
  489.  
  490.     UWORD i,j,c;
  491.  
  492.     /* recover upper 6 bits from table */
  493.     i = GetByte(LZHENV);
  494.     c = (UWORD)(d_code[i] << 6);
  495.     j = d_len[i];
  496.  
  497.     /* read lower 6 bits verbatim */
  498.     j -= 2;
  499.  
  500.     while(j--)
  501.         i = (UWORD)((i << 1) + GetBit(LZHENV));
  502.  
  503.     return((WORD)(c | (i & 0x3f)));
  504. }
  505.  
  506.     // LZH decompression
  507.  
  508. int BTXService::LZH_Decode(FILE *fi,FILE *fo,long filesize,ULONG *CRC_32)
  509. {
  510.     ULONG OUTCRC = 0xffffffff,*crctab;
  511.     struct lzh_env *LZHENV;
  512.     WORD i,j,k,r,c;
  513.     ULONG count;
  514.  
  515.     if(!(LZHENV = StartHuff()))
  516.         return(-1);
  517.  
  518.     LZHENV->infile = fi;
  519.     LZHENV->outfile = fo;
  520.  
  521.     r = N - F;
  522.  
  523.     crctab = LZHENV->crctab;
  524.  
  525.     for(count = 0; count < filesize; )
  526.     {
  527.         if((c = DecodeChar(LZHENV)) < 256)
  528.         {
  529.             if(! OutByt(LZHENV,c))
  530.             {
  531.                 StopHuff(LZHENV);
  532.                 return(-1);
  533.             }
  534.  
  535.             OUTCRC = FCS_32(OUTCRC,c);
  536.             LZHENV->text_buf[r++] = (UBYTE) c;
  537.             r &= (N - 1);
  538.             count++;
  539.         }
  540.         else
  541.         {
  542.             i = (WORD)((r - DecodePosition(LZHENV) - 1) & (N - 1));
  543.             j = (WORD)(c - 255 + THRESHOLD);
  544.  
  545.             for(k = 0; k < j; ++k)
  546.             {
  547.                 c = LZHENV->text_buf[(i + k) & (N - 1)];
  548.  
  549.                 if(!OutByt(LZHENV,c))
  550.                 {
  551.                     StopHuff(LZHENV);
  552.                     return(-1);
  553.                 }
  554.  
  555.                 OUTCRC = FCS_32(OUTCRC,c);
  556.                 LZHENV->text_buf[r++] = (UBYTE) c;
  557.                 r &= (N - 1);
  558.                 count++;
  559.             }
  560.         }
  561.     }
  562.  
  563.     if(LZHENV->OutPos)
  564.         fwrite(LZHENV->OutBuf,LZHENV->OutPos,1,LZHENV->outfile);
  565.  
  566.     StopHuff(LZHENV);
  567.  
  568.     *CRC_32 = OUTCRC;
  569.  
  570.     return(0);
  571. }
  572.  
  573. /****************************************************************************/
  574.  
  575.     // Run length decompression
  576.  
  577. int BTXService::RLE_Decode(FILE *in,FILE *out,long filesize,ULONG *CRC_32)
  578. {
  579.     enum { STATE_Raw,STATE_Repeat };
  580.  
  581.     ULONG *crctab;
  582.  
  583.     if(crctab = (ULONG *)malloc(sizeof(ULONG) * 256))
  584.     {
  585.         ULONG crc = ~0;
  586.         long total = 0;
  587.         int c,lastc = 0,x,n,i;
  588.         int state = STATE_Raw;
  589.         int result = 0;
  590.         BOOL eaten;
  591.  
  592.         initCRC(crctab);
  593.  
  594.         while(total < filesize && !result)
  595.         {
  596.             if((c = fgetc(in)) == EOF)
  597.             {
  598.                 result = -1;
  599.                 break;
  600.             }
  601.  
  602.             eaten = FALSE;
  603.  
  604.             switch(state)
  605.             {
  606.                 case STATE_Raw:
  607.  
  608.                         // Start a repeat run?
  609.  
  610.                     if(c == 0x12)
  611.                     {
  612.                         x = lastc;
  613.                         eaten = TRUE;
  614.                         state = STATE_Repeat;
  615.                     }
  616.  
  617.                     break;
  618.  
  619.                 case STATE_Repeat:
  620.  
  621.                         // Two 0x12 bytes in a row, cancel repeat
  622.                         // and just send the second 0x12
  623.  
  624.                     if(c == 0x12)
  625.                         state = STATE_Raw;
  626.                     else
  627.                     {
  628.                         n = c - 0x20 - 1;    // first char always gets written
  629.                         eaten = TRUE;
  630.                         state = STATE_Raw;
  631.  
  632.                         for(i = 0 ; !result && total < filesize && i < n ; i++)
  633.                         {
  634.                             if(fputc(x,out) == EOF)
  635.                                 result = -1;
  636.                             else
  637.                             {
  638.                                 crc = FCS_32(crc,x);
  639.                                 total++;
  640.                             }
  641.                         }
  642.                     }
  643.  
  644.                     break;
  645.             }
  646.  
  647.             if(!eaten)
  648.             {
  649.                 if(fputc(c,out) == EOF)
  650.                     result = -1;
  651.                 else
  652.                 {
  653.                     crc = FCS_32(crc,c);
  654.                     total++;
  655.                 }
  656.             }
  657.  
  658.             lastc = c;
  659.         }
  660.  
  661.         free(crctab);
  662.  
  663.         *CRC_32 = crc;
  664.  
  665.         return(result);
  666.     }
  667.     else
  668.         return(-1);
  669. }
  670.